perm filename SLP.MAC[DKH,LCS] blob sn#138794 filedate 1975-01-07 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	SLP::	0
C00003 ENDMK
CāŠ—;
SLP::	0
	MOVE	0,@(16)
	IDIVI	1000
	SLEEP
	JRA	16,1(16)
CHKOLD::0
	INIT
	SIXBIT .DSK.
	0
	JRST	4,
	SETOM	@(16)
	LOOKUP	[SIXBIT .MONOP.
	SIXBIT .DAT.
	0
	0]
	SETZM	@(16)
	JRA	16,1(16)
DELFIL::0
	RENAME	[0
	SIXBIT .DAT.
	0
	0]
	JFCL
	JRA	16,(16)
	END